Revista CD Expert 8/Revista CD Expert nº 08 CD1.iso/Utilitarios/Seguranca/Secur-all/sec32380.exe/%MAINDIR%/Securi32.exe/0/RCDATA/TFRMNEWUSER/TFRMNEWUSER.txt

Text File | 1998-08-03 | 6.3 KB | 268 lines

object frmNewUser: TfrmNewUser
  Left = 577
  Top = 159
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'New User'
  ClientHeight = 260
  ClientWidth = 353
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlBack: TRzPanel
    Left = 0
    Top = 0
    Width = 353
    Height = 260
    BorderSides = []
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 0
    object pnlApp: TRzPanel
      Left = 0
      Top = 0
      Width = 72
      Height = 260
      BorderSides = []
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      Visible = False
      object imgApp: TImage
        Left = 16
        Top = 8
        Width = 32
        Height = 32
        AutoSize = True
      end
      object imgUsers: TImage
        Left = 32
        Top = 136
        Width = 32
        Height = 32
        AutoSize = True
        Picture.Data = {<image000.ico>}
      end
      object imgBeta: TImage
        Left = 12
        Top = 56
        Width = 38
        Height = 38
        AutoSize = True
        Picture.Data = {<image001.bmp>}
      end
      object lblBeta: TLabel
        Left = 12
        Top = 96
        Width = 40
        Height = 13
        Caption = 'Beta 0.9'
      end
    end
    object pnlMainBack: TRzPanel
      Left = 72
      Top = 0
      Width = 281
      Height = 260
      BorderSides = []
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object pnlIntroBack: TRzPanel
        Left = 0
        Top = 0
        Width = 281
        Height = 123
        BorderSides = []
        Align = alTop
        BevelOuter = bvNone
        BorderWidth = 7
        Enabled = False
        TabOrder = 0
        Visible = False
        object memoIntro: TMemo
          Left = 7
          Top = 7
          Width = 267
          Height = 94
          Align = alTop
          BorderStyle = bsNone
          Color = clBtnFace
          Ctl3D = False
          Lines.Strings = (
            'Welcome to Secur-all 32. Use of this program is '
            'password-protected. The master user name is '
            #39'Admin'#39'. The Admin user can create and amend '
            'other users for this program.'
            ''
            'Please'
            'and enter the password in the Verify field.')
          ParentCtl3D = False
          TabOrder = 0
        end
        object Memo1: TMemo
          Left = 7
          Top = 101
          Width = 267
          Height = 15
          Align = alClient
          BorderStyle = bsNone
          Color = clBtnFace
          Ctl3D = False
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Lines.Strings = (
            'Make a note of it, and keep it in a safe place.'
            '')
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 1
        end
        object memopassword: TMemo
          Left = 42
          Top = 72
          Width = 229
          Height = 14
          BorderStyle = bsNone
          Color = clBtnFace
          Font.Color = clRed
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          Lines.Strings = (
            'make up your own password for Admin,')
          ParentFont = False
          TabOrder = 2
        end
      end
      object pnlUserBack: TRzPanel
        Left = 0
        Top = 123
        Width = 281
        Height = 137
        BorderSides = []
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object pnlPassword: TRzPanel
          Left = 0
          Top = 44
          Width = 281
          Height = 93
          BorderSides = []
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 2
          object lblPassword: TLabel
            Left = 8
            Top = 4
            Width = 49
            Height = 13
            Caption = 'Password:'
          end
          object lblVerify: TLabel
            Left = 8
            Top = 48
            Width = 78
            Height = 13
            Caption = 'Verify Password:'
          end
          object tedPassword: TEdit
            Left = 8
            Top = 20
            Width = 165
            Height = 21
            PasswordChar = '*'
            TabOrder = 0
            Text = 'tedPassword'
          end
          object tedPasswordVerify: TEdit
            Left = 8
            Top = 65
            Width = 165
            Height = 21
            PasswordChar = '*'
            TabOrder = 1
            Text = 'tedPasswordVerify'
            OnChange = tedPasswordVerifyChange
          end
          object btnOK: TBitBtn
            Left = 196
            Top = 5
            Width = 77
            Height = 23
            Caption = 'OK'
            Default = True
            TabOrder = 2
            OnClick = btnOKClick
            NumGlyphs = 2
            Style = bsNew
          end
          object btnCancel: TBitBtn
            Left = 196
            Top = 37
            Width = 77
            Height = 23
            Cancel = True
            Caption = 'Cancel'
            ModalResult = 2
            TabOrder = 3
            NumGlyphs = 2
            Style = bsNew
          end
        end
        object pnltedUserName: TRzPanel
          Left = 0
          Top = 20
          Width = 281
          Height = 24
          BorderSides = []
          Align = alBottom
          BevelOuter = bvNone
          TabOrder = 1
          object tedUserName: TEdit
            Left = 8
            Top = 2
            Width = 165
            Height = 21
            TabOrder = 0
            Text = 'tedUserName'
          end
        end
        object pnlName: TRzPanel
          Left = 0
          Top = 0
          Width = 281
          Height = 20
          BorderSides = []
          Align = alClient
          BevelOuter = bvNone
          TabOrder = 0
          object lblName: TLabel
            Left = 8
            Top = 8
            Width = 31
            Height = 13
            Caption = 'Name:'
          end
          object lblAdmin: TLabel
            Left = 44
            Top = 8
            Width = 29
            Height = 13
            Caption = 'Admin'
            Visible = False
          end
        end
      end
    end
  end
end